home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d19 / dorpch34.arc / DOORPCH.END < prev    next >
Encoding:
Text File  |  1989-05-17  |  3.2 KB  |  127 lines
  1. '******************************************************************************
  2. '*              DOORPCH.END Version 3.4 for PCBOARD 14.0 + Doors              *
  3. '*                       By Clint Labarthe, Terry Shockley                    *
  4. '*                              Harold Thomson                                *
  5. '*             Copyright (C), 1987, 1988, 1989 All Rights Reserved            *
  6. '*             It MUST be "$INCLUDEd" at the END of your program              *
  7. '******************************************************************************
  8. ERR.ROUTINE:
  9. 10000 SELECT CASE ERR
  10.              CASE 53
  11.                   IF ERREXP% = 53 THEN
  12.                      CALL OUT.PUT
  13.                      ERREXP% = 1
  14.                      RESUME NEXT
  15.                   END IF
  16.                   LN$ = "File not found"
  17.              CASE 57
  18.                   IF ERREXP% = 57 THEN
  19.                      IF ERRCNT% < 10 THEN
  20.                         ERRCNT% = ERRCNT% + 1
  21.                         ERREXP% = 1
  22.                         RESUME NEXT
  23.                      END IF
  24.                   END IF
  25.                   LN$ = "Comm Port I/O Error"
  26.              CASE 63
  27.                   IF ERREXP% = 70 THEN
  28.                      IF ERRCNT% < 50 THEN
  29.                         ERRCNT% = ERRCNT% + 1
  30.                         D.TIME% = 3
  31.                         CALL DELAY.TIME(D.TIME%)
  32.                         RESUME
  33.                      END IF
  34.                   END IF
  35.                   LN$ = "Bad record number"
  36.              CASE 64
  37.                   LN$ = "Bad file name specified"
  38.              CASE 70
  39.                   IF ERREXP% = 70 THEN
  40.                      IF ERRCNT% < 50 THEN
  41.                         D.TIME% = 3
  42.                         CALL DELAY.TIME(D.TIME%)
  43.                         ERRCNT% = ERRCNT% + 1
  44.                         RESUME
  45.                      END IF
  46.                   END IF
  47.                   LN$ = "Permission denied"
  48.              CASE ELSE
  49.       END SELECT
  50.       GOSUB 10025
  51.       LN$ = "Please notify SysOp: Pgm failure in Main Module of " + PROGNAME$: GOSUB 10025
  52.       LN$ = "Error # " + STR$(ERR) + "in line " + STR$(ERL): GOSUB 10025
  53.       ERREXP% = ERR: ERRCNT% = -1
  54. 10020 CALL EXITG
  55. 10025 IF COMPRTOPN% <> 1 THEN
  56.          PRINT LN$
  57.          LN$ = ""
  58.       ELSE
  59.          CALL OUT.PUT
  60.       END IF
  61.       RETURN
  62. 10170 CALL OUT.PUT
  63.       RETURN
  64. 10185 CALL CLR.SCRN
  65.       RETURN
  66. 10200 CALL OUT.NCR
  67.       RETURN
  68. 10230 CALL IN.PUT
  69.       RETURN
  70. 10235 CALL GET.KEY
  71.       RETURN
  72. 10400 'Return to PCBoard
  73. 10410 CALL EXITG
  74. 10450 CALL SCRN.POS
  75.       RETURN
  76. 10500 CALL MUSICG
  77.       RETURN
  78. SET.COLORS:
  79.       CALL SET.COLORS
  80.       RETURN
  81. BLNKRED:
  82.     BLINK% = 1
  83. RED:
  84.     FGC% = 1
  85.     RETURN
  86. BLNKGREEN:
  87.     BLINK% = 1
  88. GREEN:
  89.     FGC% = 2
  90.     RETURN
  91. BLNKYELLOW:
  92.     BLINK% = 1
  93. YELLOW:
  94.     HIGH% = 1
  95.     FGC% = 3
  96.     RETURN
  97. BLNKBLUE:
  98.     BLINK% = 1
  99. BLUE:
  100.     FGC% = 4
  101.     RETURN
  102. BLNKMAGENTA:
  103.     BLINK% = 1
  104. MAGENTA:
  105.     FGC% = 5
  106.     RETURN
  107. BLNKCYAN:
  108.    BLINK% = 1
  109. CYAN:
  110.     FGC% = 6
  111.     RETURN
  112. BLNKWHITE:
  113.     BLINK% = 1
  114. WHITE:
  115.     FGC% = 7
  116.     RETURN
  117. REDWHT:
  118.     FGC% = 1
  119.     BGC% = 7
  120.     HIGH% = 0
  121.     RETURN
  122. BLKWHT:
  123.     FGC% = 0
  124.     BGC% = 7
  125.     RETURN
  126.  
  127.